home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TPL60N14.ARJ / FUN1_TP6.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-01  |  1KB  |  67 lines
  1. UNIT Fun1_TP6;  { Copyright (c) 1990-1992 Norbert Juffa }
  2.  
  3. {$A+,B-,D+,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  4. {$M 16384,0,655360}
  5.  
  6.  
  7. INTERFACE
  8.  
  9. FUNCTION Add_TP60  (X, Y: REAL): REAL;
  10. FUNCTION Sub_TP60  (X, Y: REAL): REAL;
  11. FUNCTION Mul_TP60  (X, Y: REAL): REAL;
  12. FUNCTION Div_TP60  (X, Y: REAL): REAL;
  13. FUNCTION Sqr_TP60  (X: REAL): REAL;
  14. FUNCTION Int_TP60  (X: REAL): REAL;
  15. FUNCTION Frac_TP60 (X: REAL): REAL;
  16. FUNCTION Trunc_TP60(X: REAL): LONGINT;
  17. FUNCTION Float_TP60(I: LONGINT): REAL;
  18.  
  19. IMPLEMENTATION
  20.  
  21. FUNCTION Add_TP60 (X, Y: REAL): REAL;
  22. BEGIN
  23.    Add_TP60 := X + Y;
  24. END;
  25.  
  26. FUNCTION Sub_TP60 (X, Y: REAL): REAL;
  27. BEGIN
  28.    Sub_TP60 := X - Y;
  29. END;
  30.  
  31. FUNCTION Mul_TP60 (X, Y: REAL): REAL;
  32. BEGIN
  33.    Mul_TP60 := X * Y;
  34. END;
  35.  
  36. FUNCTION Div_TP60 (X, Y: REAL): REAL;
  37. BEGIN
  38.    Div_TP60 := X / Y;
  39. END;
  40.  
  41. FUNCTION Sqr_TP60 (X: REAL): REAL;
  42. BEGIN
  43.    Sqr_TP60 := Sqr (X);
  44. END;
  45.  
  46. FUNCTION Int_TP60 (X: REAL): REAL;
  47. BEGIN
  48.    Int_TP60 := Int (X);
  49. END;
  50.  
  51. FUNCTION Frac_TP60 (X: REAL): REAL;
  52. BEGIN
  53.    Frac_TP60 := Frac (X);
  54. END;
  55.  
  56. FUNCTION Trunc_TP60 (X:REAL): LONGINT;
  57. BEGIN
  58.    Trunc_TP60 := Trunc (X);
  59. END;
  60.  
  61. FUNCTION Float_TP60 (I: LONGINT): REAL;
  62. BEGIN
  63.    Float_TP60 := I;
  64. END;
  65.  
  66. END. { Fun1_TP6 }
  67.